home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Languages / Yerk 3.64 ƒ / Module source / about next >
Encoding:
Text File  |  1992-05-17  |  902 b   |  36 lines  |  [TEXT/ttxt]
  1.  
  2. :MODULE aboutMod
  3.  
  4. // pictures
  5. 0 value eye
  6.  
  7. : makepicture heap> picture -> eye ;
  8.  
  9. : blue 409 call forecolor ;
  10.  
  11. scon about0 "    formerly Neon by Kriya"
  12. scon about1 " Maintained by R. F. Loewenstein"
  13. scon about2 " Dept. of Astronomy & Astrophysics"
  14. scon about3 " University of Chicago"
  15. scon about4 " Yerkes Observatory"
  16. scon about5 " 414-245-5555"
  17. scon about6 " rfl@yerkes.uchicago.edu
  18.  
  19. : .about blue 0 getres YERK >ptr count bl emit type cr
  20.      about0 type cr 
  21.      about1 type cr about2 type cr about3 type cr about4 type cr
  22.     about5 type cr about6 type ;
  23. : about  { \ hwind -- } " aboutMod.bin" openresfile
  24.     makepicture 
  25.     heap> window -> hwind
  26.     70 70 460 190 put: temprect 
  27.     temprect "  " dlgwind true false new: hwind
  28.      select: hwind -curs
  29.     0 5 -32765 disp: eye
  30.     -160 -10 >origin
  31.     home .about
  32.     waitclick close: hwind 
  33.      dispose> hwind dispose> eye 0 tmode 0 tface ;
  34.  
  35. ;MODULE
  36.